home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / vol15n11.zip / REXBOX.ZIP / OEM.CMD < prev    next >
OS/2 REXX Batch file  |  1996-01-28  |  658b  |  18 lines
  1. /* MCI REXX Sample #1 */
  2. /* Sample REXX Script */
  3. /* this script shows you how to query the manufacturer of a CD device */
  4. /* you can use this script to tailor your programs for specific       */
  5. /* hardware devices/manufacturers                                     */
  6.  
  7. rc = RXFUNCADD('mciRxInit','MCIAPI','mciRxInit')
  8. InitRC = mciRxInit()
  9.  
  10. /* Open the CD */
  11.  
  12. rc = mciRxSendString("open cdaudio alias supercd wait", 'Retst', '0', '0')
  13. rc = mciRxSendString("info supercd product wait", 'Retst', '0', '0')
  14. say 'CD is model: ' Retst 
  15. rc = mciRxSendString("close supercd wait", 'Retst', '0', '0')
  16. say 'Finished SuperCD Manufacturer query'
  17. exit
  18.